home *** CD-ROM | disk | FTP | other *** search
/ Languguage OS 2 / Languguage OS II Version 10-94 (Knowledge Media)(1994).ISO / language / pcpil / sample12.pil < prev    next >
Text File  |  1987-11-30  |  2KB  |  116 lines
  1. R: Sample14 - shows use of several sized fonts.
  2. R: This program was written using the GETFONT.PIM macro to load in each
  3. R: successive font. To use the GETFONT.PIM macro in your program: in EZ
  4. R: push F7, type GETFONT.PIM then enter the font name when requested.
  5.  
  6. TS:M5
  7. T:A Look At PILOT's FONTS.
  8.  
  9. R: * * * * GETFONT MACRO * * * *
  10. C:%B="helv6"!!".FMF"
  11. C:FONTZ=FIZ(%B)
  12. T(FONTZ<=0):Missing font file $%B
  13. EC:
  14. R:
  15. D:FONT$(FONTZ)
  16. X:"FX:"!!%B
  17. FI:0,FONT$
  18. FX:
  19. R: * * * * * END OF GETFONT MACRO * * * *
  20.  
  21. NS:FONT$
  22.  
  23. ts:v20,39,2,13;f1
  24. T:In this very small type size it is 
  25. :possible to get a lot of text even
  26. :in this mode which normally permits 
  27. :only 40 columns of text per line. 
  28. :In the higher resolution modes 
  29. :(6, 13,14,16) you can even double 
  30. :this density.
  31. ts:V;
  32. ts:g0,9;f3
  33.  
  34. T:HELV6 - Abcd 1234
  35.  
  36. R: * * * * GETFONT MACRO * * * *
  37. C:%B="helv8"!!".FMF"
  38. C:FONTZ=FIZ(%B)
  39. T(FONTZ<=0):Missing font file $%B
  40. EC:
  41. R:
  42. D:FONT$(FONTZ)
  43. X:"FX:"!!%B
  44. FI:0,FONT$
  45. FX:
  46. R: * * * * * END OF GETFONT MACRO * * * *
  47.  
  48. NS:FONT$
  49. T:HELV8 - Abcd 1234
  50.  
  51. R: * * * * GETFONT MACRO * * * *
  52. C:%B="helv8b"!!".FMF"
  53. C:FONTZ=FIZ(%B)
  54. T(FONTZ<=0):Missing font file $%B
  55. EC:
  56. R:
  57. D:FONT$(FONTZ)
  58. X:"FX:"!!%B
  59. FI:0,FONT$
  60. FX:
  61. R: * * * * * END OF GETFONT MACRO * * * *
  62.  
  63. NS:FONT$
  64. T:HELV8B - Abcd 1234
  65.  
  66. R: * * * * GETFONT MACRO * * * *
  67. C:%B="helv15"!!".FMF"
  68. C:FONTZ=FIZ(%B)
  69. T(FONTZ<=0):Missing font file $%B
  70. EC:
  71. R:
  72. D:FONT$(FONTZ)
  73. X:"FX:"!!%B
  74. FI:0,FONT$
  75. FX:
  76. R: * * * * * END OF GETFONT MACRO * * * *
  77.  
  78. NS:FONT$
  79. T:HELV15 - Aabcd 1234
  80.  
  81.  
  82. R: * * * * GETFONT MACRO * * * *
  83. C:%B="helv15b"!!".FMF"
  84. C:FONTZ=FIZ(%B)
  85. T(FONTZ<=0):Missing font file $%B
  86. EC:
  87. R:
  88. D:FONT$(FONTZ)
  89. X:"FX:"!!%B
  90. FI:0,FONT$
  91. FX:
  92. R: * * * * * END OF GETFONT MACRO * * * *
  93.  
  94. NS:FONT$
  95. T:HELV15B  - Abcd 1234
  96.  
  97. R: * * * * GETFONT MACRO * * * *
  98. C:%B="helv20"!!".FMF"
  99. C:FONTZ=FIZ(%B)
  100. T(FONTZ<=0):Missing font file $%B
  101. EC:
  102. R:
  103. D:FONT$(FONTZ)
  104. X:"FX:"!!%B
  105. FI:0,FONT$
  106. FX:
  107. R: * * * * * END OF GETFONT MACRO * * * *
  108.  
  109. NS:FONT$
  110. T:HELV20 - Abcd 1234
  111.  
  112. NS:
  113. t:
  114. T:Many other fancy fonts are available
  115. :by odering FONT LIBRARY DISK 1.
  116.